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In questa lezione vediarmo i FILES SEQUENZIALI SU 
NASTRO, cioè lo registrazione dei doti di un 
progannma, in modo che non vengano persi 
quando il computer viene spento. Questo 
registrazione, cioè lo memorizzazione dei doti, 
viene chiomata FILES (o archivio) DI DATI. 
Naturalmente i dati del file, per poter essere 
nuovamente utilizzati, dovranno poi essere letti dal 
programma. 


Le istruzioni per l'uso dei files sono: 

OPEN, CLOSE, INPUT#, PKINT#, GET#. 

L'OPEN serve per obi tirare il collegomenro tra il 
computer e una periferico (cioè: il registratore, 
l'unità a disco, lo stampante, ecc) nello forma: 

OPEN 1,1,0, "NOME" 

Dove l'OPEN è seguito dal numero del 
canale, cioè un numero arbitrario tra 1 e 255, 
dal numero della periferico, pori a 1 per il 
registratore, dall'indirizzo secondario, che 
deve essere 0 se si compie un'operazione di 
lettura oppure 1 se l'operazione è di scritturo, 
ed infine dal nome del file tra i doppi apici. 



Il CLOSE serve per chiudere il collegamento aperto con 
l'OPEN e dovrà essere seguito dallo stesso numero di 
canale usato nell'OPEN. Ad esempio CLOSE 1 se 
l'apertura è OPEN 1. 

L'INPUT# e il PRJNT# devono essere usati solo dopo 
aver aperto il collegamento con l'OPEN e permettono 
rispettivamente di leggere e scrivere i doti dallo 
periferico in questione: in questo coso il registratore. 
Quindi dovranno essere seguiti dolio stesso numero di 
canale usato nell'OPEN. 

AII'INPUT# dovrà 
seguire uno listo di 
variabili separate 
dallo virgolo. Invece il 
PRJNT# potrà anche 
essere seguito do 
costanti e espressioni, 
separate dalla virgola, 
dal punto e virgolo, 
oppure dal CHR$ 

(13), corrispondente 
al tosto RETURN. 




Lo virgola e il punto e virgola spaziano i dati sul nastro 
esattamente come nell'uso del normale PRINT (lez. 6) 
sul video. 

La virgola aggiunge spazi tra i dati sprecando nastro, 
mentre il punto e virgola, non lasciando nessuna 
spaziatura tra i dati, ne rende impossibile la corretta 
lettura con l'INPUT#. 

Ti consiglio quindi di dividerli con il CHR$ (13), così 
ogni dato sarà separato correttamente e potrà essere 
riletto con l'INPUT#. 

Ad esempio: 

PRINT 1, A$CHR$ (10) 5CHRI (10) 6*U. 

Il GET # è simile all'INPUT#, ma legge un solo carattere 
per volta. Naturalmente dovrà essere seguito dallo stesso 
numero di canale usato nell'OPEN e da una lista di 

variabili separate dalla 
virgola. 

Tieni presente che la necessità 
di usare il GET# è molto rara. 

/altastoX 
V M RETURN,ij 



Quindi riassumendo, il procedimento per regisfare i doti 
sul nostro è il seguente. 

Per prima coso occorrerà aprire il collegamento con 
l'OPEN. Quindi con il PRINT# li scriverai sul nostro. Infine, 
dopo averli registrati, chiuderai il collegamento al 
registratore con il CLOSE. 

Naturalmente ogni volto che vuoi leggere un file, lo 
lettura partirà sempre dal primo dato. Ricordo che se 
leggi un doto stringa con uno variabile numerico, o 
viceversa, si verificherà un errore. 


Listato dell'esercizio: 
ESEMPIO PRATICO PER 
L'UTILIZZO DEI FILES 
SU NASTRO. 

10 PRINT"REGISTRAZIONE DATI" 

20 0PEN1,1,1,"DATI" 

30 F0RK=1T09 

40 PRINTK; : INPUT"NOMEN$ 

50 IFN$=""THEN40 
60 PRINT# 1 , N$ 

70 NEXTK:CLOSE1 

80 PRINT"RIAVVOLGI IL NASTRO" 

90 PRINT"E PREMI IL RETURN" 

100 GETY$:IFY$OCHR$(13)THEN100 
110 PRINT"LETTURA DATI" 

120 0PEN1,1,0,"DATI" 

130 F0RK=1T09 

140 INPUT&1,N$:PRINT N$ 

150 NEXTK:CL0SE1 


Listato dell'esercizio: 
COMPLETA IL LISTATO 


10 DIML|*|,N(14) 

20 F0RK=1T014:|*|L(K):NEXTK 
30 INPUT"IMPORTO";|*| 

40 INPUT"LIRE DATE";D 
50 IFD <ITHEN|*| 

60 |*|=D-I 

70 PRINT"RESTO L.";R 
80 FOR|*|T014 

90 IFR>=L(K)THENR=R-|*|:N(K)=N(K)+1:GOTO90 
100 NEXTK 

110 PRINT"TAGLI DI RESTO" 

120 F0RK=1|*|14 

130 IFN(K)>|*|THENPRINTN(K)"DA"L(K) 

140 |*|K 

150 DATA100000,50000,20000,10000,5000 
160 DATA2000,1000,500,200,100,50,20,10,5 


PROGRAMMIAMO 

INSIEME 

(CDM64) 


10 POKE 53280,7:P0KE 53281,0 
12 PRINT CHR$(147)CHR$(5) 

15 DIM L(12) 

20 FOR K=1 TO 12 
24 READ L(K) 

28 NEXT K 

30 INPUT"ANNO";Y:IF Y 1800 THEN 30 
40 INPUT"MESE";M:IF (M=0)+(M>12) THEN 40 
50 U=M 

60 IFINT(Y/4)=Y/4THENL(2)=29 
70 IFINT(Y/400)=Y/400THENL(2)=28 
80 D= 1 

90 C=INT(Y/100):Y=Y—C*100 

100 M=M—2 :IF M=0 THEN M=12:Y=Y-1 

110 IF M=-l THEN M=ll:Y=Y-1 

120 A = INT( 2.6*M-0.1)+D+Y + INT(Y/4)+INT(C/4)-2*C 
140 X=A-7*INT(A/7) 

200 IF X=0 THEN X=7 

1000 PRINT"********************" 

1020 PRINT"LU MA ME Gl VE SA DO" 

1100 FOR K=1 TO L(U) 

1120 PRINTTABt(X-l)*3)RIGHT$(" " + STR$(K ) ,2) ; 
1140 IF INT(X/7)=X/7 THEN X=0:PRINT 
1160 X=X+1 
1200 NEXT K 

2000 DATA31,28,31,30,31,30,31,31,30,31,30,31 
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PROGRAMMIAMO INSIEME (VIC 20) 

10 POKE 36879,15 
12 PRINT CHR$(147)CHR$(5) 

15 DIM L(12) 

20 FOR K=1 TO 12 
24 READ L(K) 

28 NEXT K 

30 INPUT"ANNO";Y:IF Y 1800 THEN 30 
40 INPUT"MESE";M:IF (M=0)+(M>12) THEN 40 
50 U = M 

60 IFINT(Y/4)=Y/4THENL(2)=29 
70 IFINT(Y/400)=Y/400THENL(2)=28 
80 D = 1 

90 C=INT(Y/100):Y=Y-C*100 

100 M=M-2:IF M=0 THEN M=12:Y=Y-1 

110 IF M=—1 THEN M=ll:Y=Y-1 

120 A=INT(2.6*M-0.1)+D+Y+INT(Y/4)+INT(C/4)-2*C 
140 X=A-7*INT(A/7) 

200 IF X=0 THEN X=7 

1000 PRINT"**************»*****" 

1020 PRINT"LU MA ME Gl VE SA DO" 

1100 FOR K=1 TO L(U) 

1120 PRINTTAB((X-1)*3)RIGHT$(" "+STR$(K),2); 

1140 IF INT(X/7)=X/7 THEN X=0:PRINT 
1160 X=X+1 
1200 NEXT K 

2000 DATA31,28,31,30,31,30,31,31,30,31,30,31 

Soluzione dell'esercizio: 

COMPLETA IL LISTATO 

(lez. n. 20) 

10 PRINTCHR$(147) 

20 PRINT 

30 FORX=1TO10 

40 R=INT(RND(0)*26+65) 

50 A$(X)=CHR$(R) 

60 NEXTX 

70 S=TI:PRINT" »; 

80 FORX=1TO10 
90 PRINTA$(X) ; 

100 A$=A$+A$(X) 

110 NEXTX:PRINT 
120 INPUTT$ 

130 F=TI 

140 IFT$=A$THEN170 

150 PRINT"HAI SBAGLIATO" 

160 END 

170 PRINT"SECONDI:";(F—S)/60 
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